home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / rngbck.zip / RHOST.ASP next >
Text File  |  1991-02-14  |  2KB  |  97 lines
  1. ;       Aspect V 2.0 script file for RINGBACK feature.
  2. ;       by Rick von Glahn CIS:71545,1760 PACKET:N0KKZ@W0GVT
  3.  
  4.  
  5. ;The script begins
  6.  
  7. PROC MAIN
  8.  
  9. ;The following command forces the HOST mode to drop after someone has
  10. ;disconnected. It is necessary because this script must restart after
  11. ;someone has finished using the host system to reactivate the RINGBACK
  12. ;feature.
  13.  
  14. TRANSMIT "ATZ^M"
  15. WAITFOR "OK^M"
  16. SET HOST GOODBYE HANGUP
  17. CALL START
  18.  
  19. ENDPROC
  20.  
  21.  
  22. ;Wait for telephone to ring
  23. PROC START
  24.  
  25. CALL CALLERID
  26.   WAITFOR "RING" FOREVER
  27.   IF WAITFOR
  28.     CALL RING1
  29.   ENDIF
  30.   CALL START
  31.  
  32. ENDPROC
  33.  
  34. PROC RING1
  35. ;if phone rings wait till it stops ringing
  36.  
  37. WAITFOR "RING" 7
  38.  
  39.   IF WAITFOR
  40.     CALL RING1
  41.   ENDIF
  42.  
  43. CALL RING2
  44.  
  45. ENDPROC
  46.  
  47. PROC RING2
  48. ;wait 60 seconds for a callback
  49. ;edit the 60 in the following line to the number of seconds you want the
  50. ;the script to wait for the second call.
  51.  
  52. WAITFOR "RING" 60
  53.  
  54.   IF WAITFOR
  55.     CALL SHOST
  56.   ENDIF
  57.  
  58. CALL START
  59.  
  60. ENDPROC
  61.  
  62. PROC SHOST
  63.  
  64. WHILE FOREVER
  65.   HOST
  66.   IF NOT SUCCESS
  67.      EXITWHILE
  68.   ENDIF
  69. CALL START
  70. ENDWHILE
  71.  
  72. ENDPROC
  73.  
  74.  
  75. PROC CALLERID
  76.  
  77.   BOX   6 17 17 63 02
  78.  
  79.   FATSAY  7 32 10 "Last Caller Data"
  80.   FATSAY  9 19 04 "          Name- "
  81.   FATSAY  9 36 14 $H_NAME
  82.   FATSAY 10 19 04 "     Baud Rate- "
  83.   FATSAY 10 36 14 "%li" $H_BAUD
  84.   FATSAY 11 19 04 "    User Level- "
  85.   FATSAY 11 36 14 "%c" $H_LEVEL
  86.   FATSAY 12 19 04 " Call Duration- "
  87.   FATSAY 12 36 14 $H_ELAPSED
  88.   FATSAY 13 19 04 "     Online at- "
  89.   FATSAY 13 36 14 $H_ONLINE
  90.   FATSAY 14 19 04 "    Offline at- "
  91.   FATSAY 14 36 14 $H_OFFLINE
  92.   FATSAY 15 19 04 "  Date of Call- "
  93.   FATSAY 15 36 14 $date
  94.  
  95. ENDPROC
  96.  
  97.